home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d1 / marxmenu.arc / COLORS.MNU next >
Encoding:
Text File  |  1991-03-27  |  2.1 KB  |  95 lines
  1. Comment
  2. =======================================================
  3.  
  4. Color Menu
  5. This menu displays color combinations.
  6.  
  7. On monochrome monitors and color monitors set in BW mode, MarxMenu
  8. will map the colors in such a way as to maintain a high degree of
  9. compatibility between mono and color systems. The suggested colors
  10. are the most safe generic colors to choose on a non-color screen.
  11. These are the colors the rest are mapped to.
  12.  
  13. This menu will let you see what all the colors look like on your
  14. screen. If you are running a composite monitor, or and LCD screen,
  15. you might want to use the command "MODE BW80" in you AUTOEXEC.BAT
  16. file. This will put MarxMenu (and many other programs) into the
  17. black and white mode.
  18.  
  19. Note on monochrome screens the color BLUE becomes underline.
  20.  
  21. =======================================================
  22. EndComment
  23.  
  24. ClearScreen
  25.  
  26. Var ForeColor BackColor St
  27.  
  28. Procedure PrintColor
  29.    TextColor ForeColor BackColor
  30.    Write '  '
  31.    if ForeColor < 10 then Write ' '
  32.    Write ForeColor
  33.    Write Char(4)
  34.    Write BackColor '  '
  35. EndProc
  36.  
  37. Procedure GotoPrintColor
  38.    GotoXY((BackColor * 8 + 1),ForeColor + 2)
  39.    PrintColor
  40. EndProc
  41.  
  42. Procedure SuggestColor
  43.    PrintColor
  44.    TextColor Grey Black
  45.    Write ' '
  46. EndProc
  47.  
  48. if not ColorScreen
  49.    GotoXY(5,3)
  50.    TextColor Grey Black
  51.    Write 'Suggested Colors: '
  52.    ForeColor = Grey
  53.    BackColor = Black
  54.    SuggestColor
  55.    ForeColor = White
  56.    BackColor = Black
  57.    SuggestColor
  58.    ForeColor = Black
  59.    BackColor = Grey
  60.    SuggestColor
  61.    ForeColor = White
  62.    BackColor = Grey
  63.    SuggestColor
  64.    if VideoMode and $FF = 7
  65.       ForeColor = Blue
  66.       BackColor = Black
  67.       SuggestColor
  68.       ForeColor = LBlue
  69.       BackColor = Black
  70.       SuggestColor
  71.    endif
  72. endif
  73.  
  74. Forecolor = 0
  75. BackColor = 0
  76.  
  77. SingleLineBox
  78. BoxBorderColor Green Black
  79. BoxInsideColor Black Black
  80. DrawBox 5 4 69 20
  81.  
  82. While Forecolor < 16
  83.     While BackColor < 8
  84.        GotoPrintColor
  85.        BackColor = BackColor + 1
  86.     EndWhile
  87.     BackColor = 0
  88.     ForeColor = ForeColor + 1
  89. EndWhile
  90.  
  91. While not KbdReady
  92. EndWhile
  93. St = ReadKey
  94.  
  95.